home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / macromkr / ripplean.lzh / SimpleRipple.fred.pre < prev   
Text File  |  1993-10-02  |  845b  |  46 lines
  1. /*
  2. ** SimpleRipple.fred.pre
  3.  
  4. ** Clips Exported:
  5. **    FREDOverrideLength    -    Override Length parameter flag
  6. **                          (if 1, override the Length)
  7. **    FREDPhase     -    Current Phase amount (degrees)
  8. **    FREDPhaseIncrement    -    Phase increment per frame
  9. **
  10. ** NOTE: Clip names are case sensitive.
  11.  
  12. ** This script requires FRED v1.2.0 (or higher) to run.  Also required is
  13. ** ADPro v2.0.0 or MorphPlus v1.0.0.
  14. */
  15.  
  16. ADDRESS "ADPro"
  17. OPTIONS RESULTS
  18.  
  19. PARSE ARG NumberOfCells NumberOfFrames
  20.  
  21. NL = '0A'X
  22.  
  23. /*
  24. ** Ensure that at least two frames are to be processed.
  25. */
  26.  
  27. IF (NumberOfFrames < 2) THEN DO
  28.     ADPRO_TO_FRONT
  29.     OKAY1 "Frame count must be more than 2."
  30.     ADPRO_TO_BACK
  31.     EXIT 10
  32. END
  33.  
  34.     PhaseAmount = 360/NumberOfFrames
  35.  
  36.  
  37. /*
  38. ** Update the clips.
  39. */
  40.  
  41. SETCLIP( "FREDPhase", 0 )
  42. SETCLIP( "FREDPhaseIncrement", PhaseAmount )
  43. SETCLIP( "FREDOverrideLength", 0 )
  44.  
  45. EXIT 0
  46.